home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Utilities / Workbench2000 / Workbench2000.install < prev    next >
Text File  |  2001-02-07  |  5KB  |  97 lines
  1. ; ENGLISH -----------------------------
  2. (procedure english (
  3.     (set MSG_DESTINATION "Where would you like %s to be installed?\n(A directory %s will be create)")
  4.     (set MSG_THANKS "Thank you for installing %s!\nYou can find it in %s directory.\n\nFor further informations, please contact me on\ndausse.emmanuel@free.fr\n")
  5.     (set MSG_LANGUE "Which catalog file do you want to install?\n(English language is built-in)")
  6.     (set MSG_OPTIONS "Do you want install following directory ?")
  7.     (set def_doc_lang 1)
  8. ))
  9.  
  10. ; FRANÇAIS ----------------------------
  11. (procedure français (
  12.     (set MSG_DESTINATION "Où voulez-vous installer %s ?\n(Un répertoire %s sera créé)")
  13.     (set MSG_THANKS "Merci d'avoir installé %s!\nVous le trouverez dans le répertoire %s\n\nPour plus de renseignements, contactez-moi sur\ndausse.emmanuel@free.fr\n")
  14.     (set MSG_LANGUE "Quels langages voulez-vous installer ?(le catalogue anglais est intégré au programme)")
  15.     (set MSG_OPTIONS "Voulez-vous installer les répertoires suivants ?")
  16.     (set def_doc_lang 3)
  17. ))
  18. ;------------------------------------------------------------------------------
  19.  
  20. (if (= @language "english")  (english))
  21. (if (= @language "français") (français))
  22.  
  23. (set installed "")
  24.  
  25. (set askdest_dir
  26.    (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  27.            (help @askdir-help)
  28.            (default @default-dest)
  29.            )
  30. )
  31. (if (= 0 (exists (tackon askdest_dir "Workbench2000")))
  32.   (
  33.       (makedir (tackon askdest_dir "Workbench2000") (infos))
  34.       (set maj 0)
  35.   )
  36.   (set maj 1)
  37. )
  38.  
  39. (set dest_dir (tackon askdest_dir "Workbench2000"))
  40. (set @default-dest dest_dir)
  41. (set Docs_lang
  42.       (askoptions
  43.          (prompt  MSG_LANGUE)
  44.          (help    @askoptions-help)
  45.          (choices "English" "Français" "Deutsch" "Español"
  46.                   "Italiano" "Svenska" "norsk" "suomi" "turkish")
  47.          (default def_doc_lang)
  48.       )
  49. )
  50.  
  51. (if (= 0 (exists (tackon askdest_dir "Brushes"))) (makedir (tackon dest_dir "Brushes")))
  52. (if (= 0 (exists (tackon askdest_dir "Catalogs"))) (makedir (tackon dest_dir "Catalogs")))
  53. (if (= 0 (exists (tackon askdest_dir "Docs"))) (makedir (tackon dest_dir "Docs")))
  54. (if (= 0 (exists (tackon askdest_dir "Goodies"))) (makedir (tackon dest_dir "Goodies")))
  55. (if (= 0 (exists (tackon askdest_dir "Images"))) (makedir (tackon dest_dir "Images")))
  56.  
  57. (if (bitand Docs_lang 2) (copyfiles (source "Catalogs/Français") (dest (tackon dest_dir "Catalogs/Français")) (all)))
  58. (if (bitand Docs_lang 4) (copyfiles (source "Catalogs/Deutsch") (dest (tackon dest_dir "Catalogs/Deutsch")) (all)))
  59. (if (bitand Docs_lang 8) (copyfiles (source "Catalogs/Español") (dest (tackon dest_dir "Catalogs/Español")) (all)))
  60. (if (bitand Docs_lang 16) (copyfiles (source "Catalogs/Italiano") (dest (tackon dest_dir "Catalogs/Italiano")) (all)))
  61. (if (bitand Docs_lang 32) (copyfiles (source "Catalogs/Svenska") (dest (tackon dest_dir "Catalogs/Svenska")) (all)))
  62. (if (bitand Docs_lang 64) (copyfiles (source "Catalogs/Norsk") (dest (tackon dest_dir "Catalogs/Norsk")) (all)))
  63. (if (bitand Docs_lang 128) (copyfiles (source "Catalogs/Suomi") (dest (tackon dest_dir "Catalogs/Suomi")) (all)))
  64. (if (bitand Docs_lang 256) (copyfiles (source "Catalogs/Turkish") (dest (tackon dest_dir "Catalogs/Turkish")) (all)))
  65. (copyfiles (source "Catalogs") (dest (tackon dest_dir "Catalogs")) (pattern "#?.cd"))
  66. (if (= maj 0) (set set_option 15))
  67. (set set_option
  68.       (askoptions
  69.          (prompt  MSG_OPTIONS)
  70.          (help    @askoptions-help)
  71.          (choices "Brushes" "Docs html (English)" "Docs html (Français)" "Goodies" "Images")
  72.          (default 31)
  73.       )
  74. )
  75.  
  76. (if (bitand set_option 1) (copyfiles (source "Brushes") (dest (tackon dest_dir "Brushes")) (all)))
  77. (if (bitand set_option 2) (copyfiles (source "Docs/English") (dest (tackon dest_dir "Docs/English")) (all)))
  78. (if (bitand set_option 4) (copyfiles (source "Docs/Français") (dest (tackon dest_dir "Docs/Français")) (all)))
  79. (if (bitand set_option 8) (copyfiles (source "Goodies/") (dest (tackon dest_dir "Goodies")) (all)))
  80. (if (bitand set_option 16) (copyfiles (source "Images/") (dest (tackon dest_dir "Images")) (all)))
  81. (if (= maj 0)
  82.   (copyfiles (source "") (dest dest_dir) (pattern "#?.prefs"))
  83. )
  84. (copyfiles (source "Workbench2000") (dest dest_dir))
  85. (if (= maj 0)
  86.   (copyfiles (source "Workbench2000.info") (dest dest_dir))
  87. )
  88. (copyfiles (source "Workbench2000.readme") (dest dest_dir))
  89. (set installed "YES")
  90.  
  91. (if (= installed "YES")
  92.    (exit (MSG_THANKS @app-name dest_dir) (quiet))
  93.    (exit (quiet))
  94. )
  95.  
  96.  
  97.